home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / samples.zip / PAGE.PAS < prev   
Pascal/Delphi Source File  |  1991-03-25  |  842b  |  43 lines
  1. {--------------------------------------}
  2. { Pascal Program Written on 03/25/91 ! }
  3. { Desc : Reads Text File from DOS ...  }
  4. { Written by Mike Schreckengost in TP! }
  5. {--------------------------------------}
  6.  
  7. Program Read_Text_File;
  8.  
  9. Var   File_Data:Text;
  10.       Contents :String[80];
  11.       File_Name:String[12];
  12.       Misc     :Integer;
  13.  
  14. Procedure Get_File_Name;
  15.  
  16. Begin
  17.       For Misc:=1 to ParamCount Do
  18.       File_Name:=(ParamStr(Misc));
  19. End;
  20.  
  21. Procedure Open_Read_File;
  22.  
  23. Begin
  24.       Clrscr;
  25.       Textcolor(7);
  26.       Assign(File_Data,File_Name);
  27.       Reset (File_Data);
  28.       While Not Eof(File_Data) Do
  29. Begin
  30.       Readln(File_Data,Contents);
  31.       Writeln(Contents);
  32. End;
  33.       Close(File_Data);
  34.       Textcolor(7);
  35. End;
  36.  
  37. Begin   { Main Program }
  38.  
  39.       Get_File_Name;
  40.       Open_Read_File;
  41.  
  42. End.
  43.